home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / Ant Movie Catalog 3.5.0.2 / amc_install.exe / {app} / Scripts / ClearField.ifs < prev    next >
Text File  |  2005-03-28  |  4KB  |  105 lines
  1. (***************************************************
  2.  
  3. Ant Movie Catalog importation script
  4. www.antp.be/software/moviecatalog/
  5.  
  6. [Infos]
  7. Authors=scorpion7552
  8. Title=ClearField
  9. Description=efface un champ/clear a field
  10. Site=
  11. Language=EN,FR
  12. Version=1.0
  13. Requires=3.5.0
  14. Comments=Remise α blanc d'un champ (si modifiable)/Clear a field (if modifiable)
  15. License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
  16. GetInfo=0
  17.  
  18. [Options]
  19.  
  20. ***************************************************)
  21. program ClearField;
  22. var
  23.    abort: string;
  24.    fld1: integer;
  25.  
  26. //------------------------------------------------------------------------------
  27. // creates fields list and returns the selected field number
  28. //------------------------------------------------------------------------------
  29. function SelectField :integer;
  30. var
  31.    fld: string;
  32.  
  33. begin
  34.    PickTreeClear;
  35.    PickTreeAdd('SΘlectionner le champ α effacer/Select the field to clear', '')
  36. // create list
  37.    AddFieldToList(fieldMedia, 'Label du support/Media label');
  38.    AddFieldToList(fieldMediaType, 'Type de support/Media Type');
  39.    AddFieldToList(fieldSource, 'Origine/Media Source');
  40.    AddFieldToList(fieldBorrower, 'EmpruntΘ par/Borrower');
  41.    AddFieldToList(fieldRating, 'Note/Rating');
  42.    AddFieldToList(fieldOriginalTitle, 'Titre original/Original Title');
  43.    AddFieldToList(fieldTranslatedTitle, 'Titre Traduit/Translated Title');
  44.    AddFieldToList(fieldDirector, 'RΘalisateur/Director');
  45.    AddFieldToList(fieldProducer, 'Producteur/Producer');
  46.    AddFieldToList(fieldCountry, 'Pays/Country');
  47.    AddFieldToList(fieldCategory, 'CatΘgorie/Category');
  48.    AddFieldToList(fieldActors, 'Acteurs/Actors');
  49.    AddFieldToList(fieldYear, 'AnnΘe/Year');
  50.    AddFieldToList(fieldLength, 'DurΘe/Length');
  51.    AddFieldToList(fieldUrl, 'Adresse  Web/URL');
  52.    AddFieldToList(fieldDescription, 'Description');
  53.    AddFieldToList(fieldComments, 'Commentaires/Comments');
  54.    AddFieldToList(fieldVideoFormat, 'Format vidΘo/Video format');
  55.    AddFieldToList(fieldVideoBitrate, 'Video bitrate');
  56.    AddFieldToList(fieldAudioFormat, 'Format audio/Audio format');
  57.    AddFieldToList(fieldAudioBitrate, 'Audio bitrate');
  58.    AddFieldToList(fieldResolution, 'RΘsolution/Resolution');
  59.    AddFieldToList(fieldFrameRate, 'FrΘquence/Frame rate');
  60.    AddFieldToList(fieldLanguages, 'Langues/Languages');
  61.    AddFieldToList(fieldSubtitles, 'Sous-titres/Subtitles');
  62.    AddFieldToList(fieldSize, 'Taille/Size');
  63.    AddFieldToList(fieldDisks, 'Disques/Disks');
  64. //
  65.    PickTreeExec(fld);
  66.    result := StrToInt(fld,0);
  67. end;
  68.  
  69. //------------------------------------------------------------------------------
  70. // add a field to the selection list
  71. // AddFieldToList(fieldnumber, text_for_display);
  72. //------------------------------------------------------------------------------
  73. procedure AddFieldToList(fldn: integer; str:string);
  74. begin
  75. // if fieldnumber is modifiable
  76.    if CanSetField(fldn) then
  77.       PickTreeAdd(str, IntToStr(fldn));
  78. end;
  79.  
  80. //------------------------------------------------------------------------------
  81. //  start here
  82. //------------------------------------------------------------------------------ 
  83. begin
  84.    if abort = 'o' then                             // selection has been canceled
  85.       exit;
  86.    if fld1 = 0 then                          // first time: select field to clear
  87. // note: number = 0 = fieldNumber: not selectable here
  88.    begin
  89.       if not CheckVersion(3,5,0) then
  90.       begin
  91.          ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');      
  92.          abort := 'o';
  93.          exit;
  94.       end;
  95.       fld1 := SelectField;
  96.       if fld1 = 0 then
  97.       begin
  98.          abort := 'o';                                              // no selection
  99.          exit;
  100.       end;
  101.    end;
  102. // clear the field for the current item
  103.    SetField(fld1, '');
  104. end.
  105.